home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 February: Tool Chest / Apple Developer CD Series Tool Chest February 1996 (Apple Computer)(1996).iso / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / interfaces / PInterface Translator / PInterfaces / CRMSerialDevices.p < prev    next >
Encoding:
Text File  |  1993-09-16  |  1.3 KB  |  65 lines  |  [TEXT/MPS ]
  1. {
  2. Created Tuesday, May 10 1989 at 6:00 AM
  3.     CRMSerialDevices.p
  4.     Pascal Interface to the Communications Resource Manager Serial Device Utilities
  5.     
  6.     Copyright Apple Computer, Inc.     1988-90
  7.     All rights reserved
  8. }
  9. {$IFC UNDEFINED UsingIncludes}
  10. {$SETC UsingIncludes := 0}
  11. {$ENDC}
  12.  
  13. {$IFC NOT UsingIncludes}
  14.     UNIT CRMSerialDevices;
  15.     INTERFACE
  16. {$ENDC}
  17.  
  18. {$IFC UNDEFINED UsingCRMSerialDevices}
  19. {$SETC UsingCRMSerialDevices := 1}
  20.  
  21. {$I+}
  22. {$SETC CRMSerialDevicesIncludes := UsingIncludes}
  23. {$SETC UsingIncludes := 1}
  24. {$IFC UNDEFINED UsingTypes}
  25. {$I $$Shell(PInterfaces)Types.p}
  26. {$ENDC}
  27.  
  28. {$SETC UsingIncludes := CRMSerialDevicesIncludes}
  29.  
  30. CONST
  31.  { crmDeviceType}
  32.     crmSerialDevice        =    1;
  33.                     
  34.     curCRMSerRecVers     =     1;
  35.  
  36.  
  37. TYPE
  38.     CRMIconHandle    = ^CRMIconPtr;
  39.     CRMIconPtr        = ^CRMIconRecord;
  40.     CRMIconRecord    = RECORD
  41.         oldIcon        : ARRAY [0..31] OF LONGINT;        { 'ICN#' data & mask    }
  42.         oldMask        : ARRAY [0..31] OF LONGINT;
  43.         theSuite    : Handle;                        { IconSuite handle        }
  44.         reserved    : LONGINT;
  45.     END;
  46.  
  47.     CRMSerialPtr = ^CRMSerialRecord;
  48.     CRMSerialRecord = RECORD
  49.         version                : INTEGER;
  50.         inputDriverName        : StringHandle;
  51.         outputDriverName    : StringHandle;
  52.         name                : StringHandle;
  53.         deviceIcon            : CRMIconHandle;
  54.         ratedSpeed            : LONGINT;
  55.         maxSpeed            : LONGINT;
  56.         reserved            : LONGINT;
  57.     END;
  58.  
  59. {$ENDC} {UsingCRMSerialDevices}
  60.  
  61. {$IFC NOT UsingIncludes}
  62.     END.
  63. {$ENDC}
  64.  
  65.